unit segPermissoesPerfil;

interface

uses prsBase, Rtti, prsAtributos;

type
  [attTabela('PermissoesPerfil')]
  TPermissoesPerfil = class(TTabela)
  private
    FTela: integer;
    FPerfil: integer;
    FInclusao: string;
    FAlteracao: string;
    FExclusao: string;
    FConsulta: string;
    FVisualizacao: string;
    procedure SetTela(const Value: integer);
    procedure SetPerfil(const Value: integer);
    procedure SetInclusao(const Value: string);
    procedure SetAlteracao(const Value: string);
    procedure SetExclusao(const Value: string);
    procedure SetConsulta(const Value: string);
    procedure SetVisualizacao(const Value: string);
  public
    [attPk]
    property Tela: integer read FTela write SetTela;
    [attPk]
    property Perfil: integer read FPerfil write SetPerfil;
    property Inclusao: string read FInclusao write SetInclusao;
    property Alteracao: string read FAlteracao write SetAlteracao;
    property Exclusao: string read FExclusao write SetExclusao;
    property Consulta: string read FConsulta write SetConsulta;
    property Visualizacao: string read FVisualizacao write SetVisualizacao;
  end;

implementation

{ TPermissoesPerfil }

procedure TPermissoesPerfil.SetAlteracao(const Value: string);
begin
  FAlteracao := Value;
end;

procedure TPermissoesPerfil.SetConsulta(const Value: string);
begin
  FConsulta := Value;
end;

procedure TPermissoesPerfil.SetExclusao(const Value: string);
begin
  FExclusao := Value;
end;

procedure TPermissoesPerfil.SetInclusao(const Value: string);
begin
  FInclusao := Value;
end;

procedure TPermissoesPerfil.SetPerfil(const Value: integer);
begin
  FPerfil := Value;
end;

procedure TPermissoesPerfil.SetTela(const Value: integer);
begin
  FTela := Value;
end;

procedure TPermissoesPerfil.SetVisualizacao(const Value: string);
begin
  FVisualizacao := Value;
end;

end.
